home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 October / 1986-10.d64 / seq converter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  715b  |  12 lines
  1. 100 sn=2716:sl=2736:dn=2739:dl=2759
  2. 110 print"[147]"spc(12)"code conversion"
  3. 120 print"please input source program's disk name:":input sn$
  4. 130 if len(sn$)>16 then print"that name is too long...":goto120
  5. 140 sn$=sn$+",s,r"
  6. 150 for i=0 to len(sn$)-1:poke sn+i,asc(mid$(sn$,i+1,1)):next
  7. 160 print"please input destination program's name":input dn$
  8. 170 if len(dn$)>16 then print"that name is too long...":goto160
  9. 180 dn$=dn$+",p,w"
  10. 190 for i=0 to len(dn$)-1:poke dn+i,asc(mid$(dn$,i+1,1)):next
  11. 200 poke sl,len(sn$)+2:poke dl,len(dn$)+2:sys 2501
  12.